<%

Function mensagens_lista_mensagem(id_usuario_de, id_usuario_para, total_max, tabela, mensagens)

	total=0	

	If permissao_tabelas(tabela, id_usuario_para) then	

		Select Case tabela
		
			Case "geral"
			
						str = "SELECT * from geral order by id desc LIMIT "&total_max
						Set rs = conexao_mensagens.Execute(str)	
		
						DO while not rs.eof
						
							mensagens(total,0) = rs("id_usuario")
							mensagens(total,1) = 0
							mensagens(total,2) = rs("mensagem")
							mensagens(total,3) = rs("data")
							
							total=total+1
						
						rs.MoveNext
						Loop						
			
			Case "individuais"
			
						str = "SELECT * from individuais where (id_usuario_de='"&id_usuario_de&"' and id_usuario_para='"&id_usuario_para&"') OR (id_usuario_para='"&id_usuario_de&"' and id_usuario_de='"&id_usuario_para&"') order by id desc LIMIT "&total_max
						Set rs = conexao_mensagens.Execute(str)	
		
						DO while not rs.eof
						
							mensagens(total,0) = rs("id_usuario_de")
							mensagens(total,1) = rs("id_usuario_para")
							mensagens(total,2) = rs("mensagem")
							mensagens(total,3) = rs("data")
							
							total=total+1
						
						rs.MoveNext
						Loop						
					
			Case else
			
						str = "SELECT * from "&tabela&" where (id_clube='"&id_usuario_para&"') order by id desc LIMIT "&total_max
						Set rs = conexao_mensagens.Execute(str)	
		
						DO while not rs.eof
						
							mensagens(total,0) = rs("id_usuario")
							mensagens(total,1) = rs("id_clube")
							mensagens(total,2) = rs("mensagem")
							mensagens(total,3) = rs("data")
							
							total=total+1
						
						rs.MoveNext
						Loop						
		
		End Select

	End If
	
	mensagens_lista_mensagem = total
		
End Function

%>